\begin{tabbing}
(\=Auto') \+
\\[0ex]CollapseTHEN ((DupHyp ({-}1)) 
\\[0ex]CollapseTHEN (((RWO "p{-}fun{-}exp{-}add" ({-}1)) 
\\[0ex]
\\[0ex]CollapseTHENA (Auto$\cdot$)$\cdot$) 
\\[0ex]CollapseTHEN (((FLemma `can{-}apply{-}compose` [{-}1]) 
\\[0ex]
\\[0ex]CollapseTHENA (Auto$\cdot$)$\cdot$) 
\\[0ex]CollapseTHEN ((Unfold `guard` ( 0)$\cdot$) 
\\[0ex]CollapseTHEN ((Auto$\cdot$) 
\\[0ex]
\\[0ex]CollapseTHEN (((RWO "p{-}fun{-}exp{-}add" 0) 
\\[0ex]CollapseTHENA (Auto$\cdot$)$\cdot$) 
\\[0ex]CollapseTHEN ((
\-\\[0ex]R\=WO "do{-}apply{-}compose" 0) \+
\\[0ex]CollapseTHEN (Auto$\cdot$)$\cdot$)$\cdot$)$\cdot$)$\cdot$)$\cdot$)$\cdot$)$\cdot$)$\cdot$
\-
\end{tabbing}